function[datosnorm,etiquetas,datossim,long]=datos_red2(res)
long=length(res);
datosnorm=ones(1,5*long);
datossim=datosnorm;
datos=ones(1,10*long);
for r=1:long
    datos(1,((1+(r*10 -10)):(r*10)))=res{r}(1,:);    
end
[y,ps]=mapminmax(datos);
for r=0:10:(length(datos)-10)
    datosnorm(1,(1+((r/10)*5)):(5+((r/10)*5)))=y(1,(1+(r)):(r+5));
    datossim(1,(1+((r/10)*5)):(5+((r/10)*5)))=y(1,(6+(r)):(r+10));
end
etiquetas=zeros(long,long*5);
for r=1:long
    etiquetas(r,(1+(r*5-5):(r*5)))=1;
end
